unit User;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Edit, RzPanel, ExtCtrls, RzDlgBtn, StdCtrls, Mask, RzEdit,
  RzDBEdit, RzCmboBx, RzDBCmbo, DBCtrls, DB;

type
  TUserFrm = class(TEditFrm)
    Label3: TLabel;
    RzDBEdit1: TRzDBEdit;
    Label6: TLabel;
    RzDBEdit4: TRzDBEdit;
    Label1: TLabel;
    RzDBEdit2: TRzDBEdit;
    procedure RzDialogButtons1ClickOk(Sender: TObject);
    procedure RzDialogButtons1ClickCancel(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserFrm: TUserFrm;

implementation

uses DM;

{$R *.dfm}

procedure TUserFrm.RzDialogButtons1ClickOk(Sender: TObject);
begin
  inherited;
  if (DMMain.user.State IN  [dsEdit, dsInsert]) then
    DMMain.user.Post;
end;

procedure TUserFrm.RzDialogButtons1ClickCancel(Sender: TObject);
begin
  inherited;
  DMMain.user.Cancel;
  Close;
end;

end.
